(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.4' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     53648,       1426]
NotebookOptionsPosition[     52718,       1406]
NotebookOutlinePosition[     53114,       1422]
CellTagsIndexPosition[     53071,       1419]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Delta]", "=", "1"}], ";", "  ", 
  RowBox[{"\[Theta]", "=", "1"}], ";", " ", 
  RowBox[{"\[Sigma]e", "=", "0.8"}], ";", "  ", 
  RowBox[{"NI", "=", "10"}], ";", " ", 
  RowBox[{"NM", "=", "1"}], ";", " ", 
  RowBox[{"NU", "=", "100"}], ";", 
  RowBox[{"V", "=", "3"}], ";", 
  RowBox[{"\[Sigma]V", "=", "0.4"}], ";", " ", 
  RowBox[{"\[Sigma]VN", "=", "1"}], ";", " ", 
  RowBox[{"\[Sigma]X", "=", "1"}], ";", 
  RowBox[{"\[Theta]M", "=", "200"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Res", "[", " ", "\[Sigma]X_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      SubscriptBox["\[Beta]", "I"], "=", 
      RowBox[{
       RowBox[{"\[Sigma]V", "^", "2"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[Sigma]V", "^", "2"}], "+", 
         RowBox[{"\[Sigma]e", "^", "2"}]}], ")"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"VarI", "=", 
      RowBox[{
       SubscriptBox["\[Beta]", "I"], " ", 
       RowBox[{"\[Sigma]e", "^", "2"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"h", "=", 
      RowBox[{
       RowBox[{"-", "\[Delta]"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SubscriptBox["\[Beta]", "I"]}], ")"}], " ", "\[Sigma]VN"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      SubscriptBox["\[Beta]", "X"], "=", "0"}], ";", "\[IndentingNewLine]", 
     RowBox[{
      SubscriptBox["\[Beta]", "U"], "=", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         SubscriptBox["\[Beta]", "I"], ")"}], "^", "2"}], 
       RowBox[{
        RowBox[{"\[Sigma]V", "^", "2"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["\[Beta]", "I"], 
           RowBox[{"\[Sigma]V", "^", "2"}]}], "+", 
          RowBox[{
           RowBox[{"h", "^", "2"}], " ", 
           RowBox[{"\[Sigma]X", "^", "2"}]}]}], ")"}]}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"nu", "=", 
      FractionBox[
       RowBox[{"1", "-", 
        SubscriptBox["\[Beta]", "U"]}], 
       RowBox[{"1", "-", 
        SubscriptBox["\[Beta]", "I"]}]]}], ";", "\[IndentingNewLine]", 
     RowBox[{"muS", "=", "0"}], ";", "\[IndentingNewLine]", 
     RowBox[{"sigmaS", "=", 
      RowBox[{"Sqrt", "[", 
       RowBox[{
        RowBox[{"\[Sigma]V", "^", "2"}], "+", 
        RowBox[{"\[Sigma]e", "^", "2"}], "+", 
        RowBox[{
         RowBox[{"h", "^", "2"}], " ", 
         RowBox[{
          RowBox[{"\[Sigma]X", "^", "2"}], "/", 
          RowBox[{
           RowBox[{"(", 
            SubscriptBox["\[Beta]", "I"], ")"}], "^", "2"}]}]}]}], "]"}]}], 
     ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"VarU", "=", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SubscriptBox["\[Beta]", "U"]}], ")"}], 
       RowBox[{"\[Sigma]V", "^", "2"}]}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"PI", "[", "S_", "]"}], ":=", 
      RowBox[{"V", "+", 
       RowBox[{
        SubscriptBox["\[Beta]", "I"], " ", "S"}], "-", 
       RowBox[{"\[Delta]", " ", "VarI", "  ", "\[Theta]"}]}]}], " ", ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"PU", "[", "S_", "]"}], ":=", 
      RowBox[{"V", "+", 
       RowBox[{
        SubscriptBox["\[Beta]", "U"], " ", "S"}], "-", 
       RowBox[{"\[Delta]", " ", "VarU", "  ", "\[Theta]"}]}]}], " ", ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"f", "[", "S_", "]"}], ":=", " ", 
      RowBox[{
       FractionBox["1", 
        RowBox[{
         SqrtBox[
          RowBox[{"2", "*", "Pi"}]], " ", "sigmaS"}]], 
       RowBox[{"Exp", "[", 
        RowBox[{"-", 
         FractionBox[
          RowBox[{"S", "^", "2"}], 
          RowBox[{"2", " ", 
           RowBox[{"sigmaS", "^", "2"}]}]]}], "]"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"A1", "[", "S_", "]"}], ":=", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "NI", " ", "nu"}], "+", "NU"}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}], ")"}]}], " ", 
        RowBox[{"PI", "[", "S", "]"}]}], "+", 
       RowBox[{
        RowBox[{"NU", "/", 
         RowBox[{"(", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}], ")"}]}], " ", 
        RowBox[{"PU", "[", "S", "]"}]}], "-", 
       RowBox[{"\[Delta]", " ", "VarU", " ", 
        RowBox[{"\[Theta]M", "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}]}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"B1", "[", "S_", "]"}], ":=", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", " ", 
          RowBox[{"NI", " ", "nu"}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}], ")"}]}], " ", 
        RowBox[{"PI", "[", "S", "]"}]}], "+", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"NI", " ", "nu"}], "+", 
           RowBox[{"2", " ", "NU"}]}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}], ")"}]}], " ", 
        RowBox[{"PU", "[", "S", "]"}]}], "-", 
       RowBox[{"\[Delta]", " ", "VarU", " ", 
        RowBox[{"\[Theta]M", "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}]}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"c1", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[Delta]"}], " ", 
        RowBox[{"\[Sigma]V", "^", "2"}], " ", "\[Theta]"}], "+", 
       RowBox[{"2", " ", "\[Delta]", " ", 
        RowBox[{"VarI", "/", 
         RowBox[{"(", 
          RowBox[{"NI", 
           RowBox[{"(", 
            RowBox[{
             SubscriptBox["\[Beta]", "I"], "-", 
             SubscriptBox["\[Beta]", "U"]}], ")"}]}], ")"}]}], " ", 
        "\[Theta]M"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"c2", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[Delta]"}], " ", 
        RowBox[{"\[Sigma]V", "^", "2"}], " ", "\[Theta]"}], "-", 
       RowBox[{"2", " ", "\[Delta]", " ", 
        RowBox[{"VarU", "/", 
         RowBox[{"(", 
          RowBox[{"NU", 
           RowBox[{"(", 
            RowBox[{
             SubscriptBox["\[Beta]", "I"], "-", 
             SubscriptBox["\[Beta]", "U"]}], ")"}]}], ")"}]}], " ", 
        "\[Theta]M"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"c3", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[Delta]"}], " ", 
        RowBox[{"\[Sigma]V", "^", "2"}], " ", "\[Theta]"}], "+", 
       RowBox[{"\[Delta]", " ", 
        RowBox[{"VarI", "/", 
         RowBox[{"(", 
          RowBox[{"NI", 
           RowBox[{"(", 
            RowBox[{
             SubscriptBox["\[Beta]", "I"], "-", 
             SubscriptBox["\[Beta]", "U"]}], ")"}]}], ")"}]}], " ", 
        "\[Theta]M"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"c4", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[Delta]"}], " ", 
        RowBox[{"\[Sigma]V", "^", "2"}], " ", "\[Theta]"}], "-", 
       RowBox[{"\[Delta]", " ", 
        RowBox[{"VarU", "/", 
         RowBox[{"(", 
          RowBox[{"NU", 
           RowBox[{"(", 
            RowBox[{
             SubscriptBox["\[Beta]", "I"], "-", 
             SubscriptBox["\[Beta]", "U"]}], ")"}]}], ")"}]}], " ", 
        "\[Theta]M"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"P", "[", "S_", "]"}], ":=", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", " ", 
          RowBox[{"NI", " ", "nu"}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}], 
        RowBox[{"PI", "[", "S", "]"}]}], "+", 
       RowBox[{
        RowBox[{"NU", "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}], " ", 
        RowBox[{"PU", "[", "S", "]"}]}], "-", 
       RowBox[{"\[Delta]", " ", "VarU", " ", 
        RowBox[{"\[Theta]M", "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}]}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"A2", "[", "S_", "]"}], ":=", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", " ", 
          RowBox[{"NI", " ", "nu"}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}], ")"}]}], " ", 
        RowBox[{"PI", "[", "S", "]"}]}], "+", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"NI", " ", "nu"}], "+", 
           RowBox[{"2", " ", "NU"}]}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}], ")"}]}], " ", 
        RowBox[{"PU", "[", "S", "]"}]}], "-", 
       RowBox[{"\[Delta]", " ", "VarU", " ", 
        RowBox[{"\[Theta]M", "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}]}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"B2", "[", "S_", "]"}], ":=", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "NI", " ", "nu"}], "+", "NU"}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}], ")"}]}], " ", 
        RowBox[{"PI", "[", "S", "]"}]}], "+", 
       RowBox[{
        RowBox[{"NU", "/", 
         RowBox[{"(", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}], ")"}]}], " ", 
        RowBox[{"PU", "[", "S", "]"}]}], "-", 
       RowBox[{"\[Delta]", " ", "VarU", " ", 
        RowBox[{"\[Theta]M", "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}]}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"A3", "[", "S_", "]"}], ":=", 
      RowBox[{
       RowBox[{"PI", "[", "S", "]"}], "-", 
       RowBox[{"\[Delta]", " ", "VarU", " ", 
        RowBox[{"\[Theta]M", "/", 
         RowBox[{"(", 
          RowBox[{"NI", " ", "nu"}], ")"}]}]}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"B3", "[", "S_", "]"}], ":=", 
      RowBox[{"PU", "[", "S", "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"A4", "[", "S_", "]"}], ":=", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", " ", 
          RowBox[{"NI", " ", "nu"}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}], 
        RowBox[{"PI", "[", "S", "]"}]}], "+", 
       RowBox[{
        RowBox[{"NU", "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}], " ", 
        RowBox[{"PU", "[", "S", "]"}]}], "-", 
       RowBox[{"\[Delta]", " ", "VarU", " ", 
        RowBox[{"\[Theta]M", "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}]}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"B4", "[", "S_", "]"}], ":=", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", " ", 
          RowBox[{"NI", " ", "nu"}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}], 
        RowBox[{"PI", "[", "S", "]"}]}], "+", 
       RowBox[{
        RowBox[{"NU", "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}], " ", 
        RowBox[{"PU", "[", "S", "]"}]}], "-", 
       RowBox[{"\[Delta]", " ", "VarU", " ", 
        RowBox[{"\[Theta]M", "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}]}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"A5", "[", "S_", "]"}], ":=", 
      RowBox[{
       RowBox[{"PU", "[", "S", "]"}], "-", 
       RowBox[{"\[Delta]", " ", "VarU", " ", 
        RowBox[{"\[Theta]M", "/", 
         RowBox[{"(", "NU", ")"}]}]}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"B5", "[", "S_", "]"}], ":=", 
      RowBox[{"PI", "[", "S", "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"EXA", "=", 
      RowBox[{
       RowBox[{"NIntegrate", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"A1", "[", "S", "]"}], " ", 
          RowBox[{"f", "[", "S", "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"S", ",", "c1", ",", 
           RowBox[{"10", "*", "sigmaS"}]}], "}"}]}], "]"}], "+", 
       RowBox[{"NIntegrate", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"A2", "[", "S", "]"}], 
          RowBox[{"f", "[", "S", "]"}]}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"S", ",", " ", 
           RowBox[{
            RowBox[{"-", "10"}], "*", "sigmaS"}], ",", " ", "c2"}], "}"}]}], 
        "]"}], "+", 
       RowBox[{"NIntegrate", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"A3", "[", "S", "]"}], 
          RowBox[{"f", "[", "S", "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"S", ",", "c3", ",", "c1"}], "}"}]}], "]"}], "+", 
       RowBox[{"NIntegrate", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"A4", "[", "S", "]"}], 
          RowBox[{"f", "[", "S", "]"}]}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"S", ",", "c4", ",", " ", "c3"}], "}"}]}], "]"}], "+", 
       RowBox[{"NIntegrate", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"A5", "[", "S", "]"}], 
          RowBox[{"f", "[", "S", "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"S", ",", "c2", ",", "c4"}], "}"}]}], "]"}]}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"EXB", "=", 
      RowBox[{
       RowBox[{"NIntegrate", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"B1", "[", "S", "]"}], 
          RowBox[{"f", "[", "S", "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"S", ",", "c1", ",", 
           RowBox[{"10", "*", "sigmaS"}]}], "}"}]}], "]"}], "+", 
       RowBox[{"NIntegrate", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"B2", "[", "S", "]"}], 
          RowBox[{"f", "[", "S", "]"}]}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"S", ",", " ", 
           RowBox[{
            RowBox[{"-", "10"}], "*", "sigmaS"}], ",", " ", "c2"}], "}"}]}], 
        "]"}], "+", 
       RowBox[{"NIntegrate", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"B3", "[", "S", "]"}], 
          RowBox[{"f", "[", "S", "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"S", ",", "c3", ",", "c1"}], "}"}]}], "]"}], "+", 
       RowBox[{"NIntegrate", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"B4", "[", "S", "]"}], 
          RowBox[{"f", "[", "S", "]"}]}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"S", ",", "c4", ",", " ", "c3"}], "}"}]}], "]"}], "+", 
       RowBox[{"NIntegrate", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"B5", "[", "S", "]"}], 
          RowBox[{"f", "[", "S", "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"S", ",", "c2", ",", "c4"}], "}"}]}], "]"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"EXP", "=", 
      RowBox[{"NIntegrate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"P", "[", "S", "]"}], " ", 
         RowBox[{"f", "[", "S", "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"S", ",", 
          RowBox[{
           RowBox[{"-", "10"}], "*", "sigmaS"}], ",", 
          RowBox[{"10", "*", "sigmaS"}]}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"Return", "[", 
      RowBox[{"{", 
       RowBox[{"EXP", ",", "EXA", ",", "EXB"}], "}"}], "]"}]}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dvec1", "=", 
   RowBox[{"{", "}"}]}], ";", " ", 
  RowBox[{"dvec2", "=", 
   RowBox[{"{", "}"}]}], ";", 
  RowBox[{"dvec3", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Res2", "=", 
      RowBox[{"Res", "[", "\[Sigma]X", "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"dvec1", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"dvec1", ",", 
        RowBox[{"{", 
         RowBox[{"\[Sigma]X", ",", 
          RowBox[{"Res2", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"dvec2", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"dvec2", ",", 
        RowBox[{"{", 
         RowBox[{"\[Sigma]X", ",", 
          RowBox[{"Res2", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
     RowBox[{"dvec3", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"dvec3", ",", 
        RowBox[{"{", 
         RowBox[{"\[Sigma]X", ",", 
          RowBox[{"Res2", "[", 
           RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "]"}]}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"\[Sigma]X", ",", "0.15", ",", "2", ",", "0.1"}], "}"}]}], 
  "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p1", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"dvec1", ",", "dvec2", ",", "dvec3"}], "}"}], ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", " ", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", " ", 
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(\[Sigma]\), \(X\)]\)\>\"", ",", 
        "\"\<E[A], E[B], and E[P]\>\""}], "}"}]}], ",", " ", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", " ", 
         RowBox[{
          RowBox[{"Darker", "[", "Purple", "]"}], ",", "DotDashed", ",", 
          RowBox[{"Thickness", "[", "0.005", "]"}]}], "}"}], ",", 
        RowBox[{"{", " ", 
         RowBox[{
          RowBox[{"Darker", "[", "Red", "]"}], ",", 
          RowBox[{"Thickness", "[", "0.005", "]"}]}], "}"}], ",", 
        RowBox[{"{", " ", 
         RowBox[{
          RowBox[{"Darker", "[", "Blue", "]"}], ",", 
          RowBox[{"Thickness", "[", "0.005", "]"}], ",", "Dashed"}], "}"}]}], 
       "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", "Medium", "]"}]}], ",", 
     RowBox[{"AxesOrigin", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0.14", ",", "2.28"}], "}"}]}]}], "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.7549250770824947`*^9, 3.754925087740601*^9}, {
   3.754925995218573*^9, 3.754926013772711*^9}, {3.754926920486045*^9, 
   3.7549269290246353`*^9}, {3.754926959916375*^9, 3.754926964941925*^9}, {
   3.754927010799492*^9, 3.7549270355973043`*^9}, {3.75492707868114*^9, 
   3.754927111731505*^9}, {3.754928888365959*^9, 3.754928888986856*^9}, {
   3.754929369287394*^9, 3.7549293729732103`*^9}, {3.754929420529904*^9, 
   3.754929609678342*^9}, {3.754929903523971*^9, 3.754929909485075*^9}, {
   3.754929986718869*^9, 3.7549300150948133`*^9}, {3.754930098446485*^9, 
   3.754930187665628*^9}, {3.754930247751419*^9, 3.75493027819512*^9}, {
   3.7549303194392242`*^9, 3.754930320486724*^9}, {3.7549307156074*^9, 
   3.754930728497313*^9}, {3.754930902668049*^9, 3.7549310480061817`*^9}, {
   3.754931136269341*^9, 3.754931168141231*^9}, {3.7549312758033247`*^9, 
   3.754931328582164*^9}, {3.75493135915086*^9, 3.754931406063677*^9}, {
   3.7549314644691772`*^9, 3.754931550503108*^9}, {3.754931626328319*^9, 
   3.754931679037208*^9}, {3.75493195643117*^9, 3.754931960361108*^9}, {
   3.7549320956391373`*^9, 3.7549321638367853`*^9}, {3.7549329686075993`*^9, 
   3.754932974936275*^9}, {3.7549331122018137`*^9, 3.754933130499219*^9}, {
   3.754933165213258*^9, 3.7549332018252697`*^9}, 3.7549332354431334`*^9, {
   3.754933275263979*^9, 3.7549333356309223`*^9}, 3.7549333712820168`*^9, 
   3.7549335330431833`*^9, {3.754933650214191*^9, 3.754933689122448*^9}, {
   3.7549338055756683`*^9, 3.754933988282425*^9}, {3.754934040334466*^9, 
   3.7549340428549643`*^9}, {3.754934282241618*^9, 3.754934404670271*^9}, {
   3.754934456357429*^9, 3.754934486550756*^9}, {3.75493457250148*^9, 
   3.75493458876694*^9}, {3.754934791725243*^9, 3.7549347992701817`*^9}, {
   3.754934851435731*^9, 3.754935213472756*^9}, {3.754935427720048*^9, 
   3.754935610820072*^9}, {3.75493564726115*^9, 3.754935688134659*^9}, {
   3.754935743662665*^9, 3.7549358209583797`*^9}, {3.754935853148829*^9, 
   3.75493587075774*^9}, {3.7549359748150187`*^9, 3.754936027666729*^9}, {
   3.7549360777178717`*^9, 3.7549361070389957`*^9}, {3.7549361416153*^9, 
   3.754936162504277*^9}, {3.754936961168929*^9, 3.754936961620346*^9}, {
   3.754937062407131*^9, 3.754937107833687*^9}, {3.7549414098182487`*^9, 
   3.75494145430996*^9}, {3.754941622810755*^9, 3.75494172968139*^9}, {
   3.754959743490328*^9, 3.75495980351976*^9}, {3.754959842411792*^9, 
   3.7549599648457947`*^9}, {3.7549601168154163`*^9, 3.754960117820891*^9}, {
   3.754961907757354*^9, 3.754961954178083*^9}, {3.7549625114924593`*^9, 
   3.7549625269799757`*^9}, {3.7549641043428802`*^9, 3.754964135986928*^9}, {
   3.755017142832323*^9, 
   3.75501716288231*^9}},ExpressionUUID->"bdabf441-d342-4083-8f38-\
93fd5c82c022"],

Cell[BoxData[
 RowBox[{
  GraphicsBox[{InsetBox[
     StyleBox[Cell["E[B]",
       GeneratedCell->False,
       CellAutoOverwrite->False,
       CellBaseline->Baseline,
       TextAlignment->Left,ExpressionUUID->
       "a37a8b6a-5043-4081-ba10-a9fca1a80b50"],
      FontColor->GrayLevel[0.4],
      Background->GrayLevel[1.]], {1.5233929961369927, 2.3264858730527345}, {
     Left, Baseline},
     Alignment->{Left, Top}], InsetBox[
     StyleBox[Cell["E[P]",
       GeneratedCell->False,
       CellAutoOverwrite->False,
       CellBaseline->Baseline,
       TextAlignment->Left,ExpressionUUID->
       "fe89b03f-17c9-4644-b81d-9da910fbdb5d"],
      FontColor->GrayLevel[0.4],
      Background->GrayLevel[1.]], {1.598346870675738, 2.532729476440206}, {
     Left, Baseline},
     Alignment->{Left, Top}], InsetBox[
     StyleBox[Cell["E[A]",
       GeneratedCell->False,
       CellAutoOverwrite->False,
       CellBaseline->Baseline,
       TextAlignment->Left,ExpressionUUID->
       "1b0a63eb-d070-4642-a19f-ec7f11cb3730"],
      FontColor->GrayLevel[0.4],
      Background->GrayLevel[1.]], {1.5383837710447419, 2.6043456478957294}, {
     Left, Baseline},
     Alignment->{Left, Top}], {{}, {}, 
     {RGBColor[0.33333333333333337`, 0, 0.33333333333333337`], PointSize[
      0.011000000000000001`], Thickness[0.005], 
      Dashing[{0, Small, Small, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBmIQbQwGh+1jn9a8rHnJ4sAABhfsD7q/iZQ9yOKQBgbX
7OVX2ux4vJzF4dwZELhjfyIqf9afGSwOs2aCwEP7Tarrpz3rZ3E4C5Z/Yl9y
uplHrIvFgRFs3gv7g7xHP+i3sTiYgO17bX9oi/b9smYWh3Sw+e/spbjfvq5r
hOn/YL9ifcZx9gaY/Z/s38ZXNbysg7nvi30dr3gUVx3M/q/2B6cbGkXWsjhA
/PPdfrXsBp9TNTDzftiXH1qWHVoDM++XPcupZ4u/VMPM+2PPs2/V/MXVMPP+
2sfcW6UcXw0z7789w/vEvSpAPgBIcYSW
       "]]}, 
     {RGBColor[
       NCache[
        Rational[2, 3], 0.6666666666666666], 0, 0], PointSize[
      0.011000000000000001`], Thickness[0.005], LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBmIQbQwGh+3Plrq8rnnJ4sAABhfsuxN914ccZHFIA4Nr
9i/Mjq27upLF4dwZELhjv2SFFpfZPBaHWTNB4KH9afYeZ6WZLA5nwfJP7PnO
p2lNnM7iwAg274X9mtSvWz8D+SZg+17bZ7S9eV8DVJ8ONv+dfWh2ktLp2TD9
H+z1uyPyjs6D2f/J/mTyCuOORTD3fbF3P5t3O2A5zP6v9hf3MZ3JXMviAPHP
d/tfjzOOS22FmffD3vBTasL8fTDzftlH+gptUToFM++Pvd8kn637rsPM+2vP
Ybe4ofY5zLz/9kwrwlZE/2RxAAAUC4W9
       "]]}, 
     {RGBColor[0, 0, 
       NCache[
        Rational[2, 3], 0.6666666666666666]], PointSize[
      0.011000000000000001`], Thickness[0.005], Dashing[{Small, Small}], 
      LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBmIQbQwGh+3XWP+6UfOSxYEBDC7Ys+z+XWe+n8UhDQyu
2SfWO9+Nm87icO4MCNyxr2u3f1qey+IwayYIPLSftS9O7KEzi8NZsPwT+6pn
E0xfSLM4MILNe2Hv2/A6dMdXZgcTsH2v7bVDFZ9IXGR2SAeb/87+Q5hk0761
zFD9H+xV8raWJHUzQ+3/ZG/tkWB2PJMZ6r4v9sx7eqft8GCG2v/V/sy6KnNu
DWYHiH++20+dfeDtbHaYeT/syyzffvF7zgQ175e9xN4T//iOM0HN+2P/9eN7
kzPLmKDm/bXv+KjmXN3GBDXvv/0em7/lImlMDgBQeIUn
       "]]}}},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{True, True},
   AxesLabel->{None, None},
   AxesOrigin->{0.14, 2.28},
   DisplayFunction->Identity,
   Frame->{{True, True}, {True, True}},
   FrameLabel->{{
      FormBox["\"E[A], E[B], and E[P]\"", TraditionalForm], None}, {
      FormBox[
      "\"\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(X\\)]\\)\"", 
       TraditionalForm], None}},
   FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.5, 0.4]],
   ImagePadding->{{46., 1.5}, {40., 0.5}},
   ImageSize->{454., Automatic},
   LabelStyle->Directive[Medium],
   Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
         (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
          Part[#, 1]], 
         (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
         (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
          Part[#, 1]], 
         (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
          Part[#, 2]]}& )}},
   PlotRange->{{-0.040625, 1.9906249999999999`}, {2.272650390232362, 
    2.6401308786142503`}},
   PlotRangeClipping->True,
   PlotRangePadding->Automatic,
   Ticks->{Automatic, Automatic}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.75501717661845*^9, 
  3.755017232429475*^9}},ExpressionUUID->"32c060c8-2df4-4423-9f13-\
ec34f1288593"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{{3.755017100607592*^9, 3.7550171239801207`*^9}, 
   3.755017173604559*^9},ExpressionUUID->"4dff5d5d-aebf-4ef6-b9fe-\
9ea6058885be"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{{3.754964578359475*^9, 3.754964607042082*^9}, {
   3.754964648048662*^9, 3.7549646492301826`*^9}, 
   3.755017109115492*^9},ExpressionUUID->"87257d38-da33-4375-8d89-\
6666af2d99fc"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{{3.754964438080689*^9, 3.754964547515216*^9}, 
   3.754964580416662*^9},ExpressionUUID->"cdd9d07e-5be8-4340-830d-\
02a478783340"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Delta]", "=", "1"}], ";", "  ", 
  RowBox[{"\[Theta]", "=", "1"}], ";", " ", 
  RowBox[{"\[Sigma]e", "=", "0.8"}], ";", "  ", 
  RowBox[{"NI", "=", "10"}], ";", " ", 
  RowBox[{"NM", "=", "1"}], ";", " ", 
  RowBox[{"NU", "=", "100"}], ";", 
  RowBox[{"V", "=", "3"}], ";", 
  RowBox[{"\[Sigma]V", "=", "0.4"}], ";", " ", 
  RowBox[{"\[Sigma]VN", "=", "1"}], ";", " ", 
  RowBox[{"\[Sigma]X", "=", "1"}], ";", 
  RowBox[{"\[Theta]M", "=", 
   RowBox[{"-", "200"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Res", "[", " ", "\[Sigma]X_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      SubscriptBox["\[Beta]", "I"], "=", 
      RowBox[{
       RowBox[{"\[Sigma]V", "^", "2"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[Sigma]V", "^", "2"}], "+", 
         RowBox[{"\[Sigma]e", "^", "2"}]}], ")"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"VarI", "=", 
      RowBox[{
       SubscriptBox["\[Beta]", "I"], " ", 
       RowBox[{"\[Sigma]e", "^", "2"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"h", "=", 
      RowBox[{
       RowBox[{"-", "\[Delta]"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SubscriptBox["\[Beta]", "I"]}], ")"}], " ", "\[Sigma]VN"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      SubscriptBox["\[Beta]", "X"], "=", "0"}], ";", "\[IndentingNewLine]", 
     RowBox[{
      SubscriptBox["\[Beta]", "U"], "=", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         SubscriptBox["\[Beta]", "I"], ")"}], "^", "2"}], 
       RowBox[{
        RowBox[{"\[Sigma]V", "^", "2"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["\[Beta]", "I"], 
           RowBox[{"\[Sigma]V", "^", "2"}]}], "+", 
          RowBox[{
           RowBox[{"h", "^", "2"}], " ", 
           RowBox[{"\[Sigma]X", "^", "2"}]}]}], ")"}]}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"nu", "=", 
      FractionBox[
       RowBox[{"1", "-", 
        SubscriptBox["\[Beta]", "U"]}], 
       RowBox[{"1", "-", 
        SubscriptBox["\[Beta]", "I"]}]]}], ";", "\[IndentingNewLine]", 
     RowBox[{"muS", "=", "0"}], ";", "\[IndentingNewLine]", 
     RowBox[{"sigmaS", "=", 
      RowBox[{"Sqrt", "[", 
       RowBox[{
        RowBox[{"\[Sigma]V", "^", "2"}], "+", 
        RowBox[{"\[Sigma]e", "^", "2"}], "+", 
        RowBox[{
         RowBox[{"h", "^", "2"}], " ", 
         RowBox[{
          RowBox[{"\[Sigma]X", "^", "2"}], "/", 
          RowBox[{
           RowBox[{"(", 
            SubscriptBox["\[Beta]", "I"], ")"}], "^", "2"}]}]}]}], "]"}]}], 
     ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"VarU", "=", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SubscriptBox["\[Beta]", "U"]}], ")"}], 
       RowBox[{"\[Sigma]V", "^", "2"}]}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"PI", "[", "S_", "]"}], ":=", 
      RowBox[{"V", "+", 
       RowBox[{
        SubscriptBox["\[Beta]", "I"], " ", "S"}], "-", 
       RowBox[{"\[Delta]", " ", "VarI", "  ", "\[Theta]"}]}]}], " ", ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"PU", "[", "S_", "]"}], ":=", 
      RowBox[{"V", "+", 
       RowBox[{
        SubscriptBox["\[Beta]", "U"], " ", "S"}], "-", 
       RowBox[{"\[Delta]", " ", "VarU", "  ", "\[Theta]"}]}]}], " ", ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"f", "[", "S_", "]"}], ":=", " ", 
      RowBox[{
       FractionBox["1", 
        RowBox[{
         SqrtBox[
          RowBox[{"2", "*", "Pi"}]], " ", "sigmaS"}]], 
       RowBox[{"Exp", "[", 
        RowBox[{"-", 
         FractionBox[
          RowBox[{"S", "^", "2"}], 
          RowBox[{"2", " ", 
           RowBox[{"sigmaS", "^", "2"}]}]]}], "]"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"A1", "[", "S_", "]"}], ":=", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "NI", " ", "nu"}], "+", "NU"}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}], ")"}]}], " ", 
        RowBox[{"PI", "[", "S", "]"}]}], "+", 
       RowBox[{
        RowBox[{"NU", "/", 
         RowBox[{"(", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}], ")"}]}], " ", 
        RowBox[{"PU", "[", "S", "]"}]}], "-", 
       RowBox[{"\[Delta]", " ", "VarU", " ", 
        RowBox[{"\[Theta]M", "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}]}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"B1", "[", "S_", "]"}], ":=", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", " ", 
          RowBox[{"NI", " ", "nu"}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}], ")"}]}], " ", 
        RowBox[{"PI", "[", "S", "]"}]}], "+", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"NI", " ", "nu"}], "+", 
           RowBox[{"2", " ", "NU"}]}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}], ")"}]}], " ", 
        RowBox[{"PU", "[", "S", "]"}]}], "-", 
       RowBox[{"\[Delta]", " ", "VarU", " ", 
        RowBox[{"\[Theta]M", "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}]}]}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"c1", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[Delta]"}], " ", 
        RowBox[{"\[Sigma]V", "^", "2"}], " ", "\[Theta]"}], "+", 
       RowBox[{"2", " ", "\[Delta]", " ", 
        RowBox[{"VarI", "/", 
         RowBox[{"(", 
          RowBox[{"NI", 
           RowBox[{"(", 
            RowBox[{
             SubscriptBox["\[Beta]", "I"], "-", 
             SubscriptBox["\[Beta]", "U"]}], ")"}]}], ")"}]}], " ", 
        "\[Theta]M"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"c2", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[Delta]"}], " ", 
        RowBox[{"\[Sigma]V", "^", "2"}], " ", "\[Theta]"}], "-", 
       RowBox[{"2", " ", "\[Delta]", " ", 
        RowBox[{"VarU", "/", 
         RowBox[{"(", 
          RowBox[{"NU", 
           RowBox[{"(", 
            RowBox[{
             SubscriptBox["\[Beta]", "I"], "-", 
             SubscriptBox["\[Beta]", "U"]}], ")"}]}], ")"}]}], " ", 
        "\[Theta]M"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"c3", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[Delta]"}], " ", 
        RowBox[{"\[Sigma]V", "^", "2"}], " ", "\[Theta]"}], "+", 
       RowBox[{"\[Delta]", " ", 
        RowBox[{"VarI", "/", 
         RowBox[{"(", 
          RowBox[{"NI", 
           RowBox[{"(", 
            RowBox[{
             SubscriptBox["\[Beta]", "I"], "-", 
             SubscriptBox["\[Beta]", "U"]}], ")"}]}], ")"}]}], " ", 
        "\[Theta]M"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"c4", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[Delta]"}], " ", 
        RowBox[{"\[Sigma]V", "^", "2"}], " ", "\[Theta]"}], "-", 
       RowBox[{"\[Delta]", " ", 
        RowBox[{"VarU", "/", 
         RowBox[{"(", 
          RowBox[{"NU", 
           RowBox[{"(", 
            RowBox[{
             SubscriptBox["\[Beta]", "I"], "-", 
             SubscriptBox["\[Beta]", "U"]}], ")"}]}], ")"}]}], " ", 
        "\[Theta]M"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"P", "[", "S_", "]"}], ":=", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", " ", 
          RowBox[{"NI", " ", "nu"}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}], 
        RowBox[{"PI", "[", "S", "]"}]}], "+", 
       RowBox[{
        RowBox[{"NU", "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}], " ", 
        RowBox[{"PU", "[", "S", "]"}]}], "-", 
       RowBox[{"\[Delta]", " ", "VarU", " ", 
        RowBox[{"\[Theta]M", "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}]}]}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"A2", "[", "S_", "]"}], ":=", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", " ", 
          RowBox[{"NI", " ", "nu"}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}], ")"}]}], " ", 
        RowBox[{"PI", "[", "S", "]"}]}], "+", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"NI", " ", "nu"}], "+", 
           RowBox[{"2", " ", "NU"}]}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}], ")"}]}], " ", 
        RowBox[{"PU", "[", "S", "]"}]}], "-", 
       RowBox[{"\[Delta]", " ", "VarU", " ", 
        RowBox[{"\[Theta]M", "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}]}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"B2", "[", "S_", "]"}], ":=", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "NI", " ", "nu"}], "+", "NU"}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}], ")"}]}], " ", 
        RowBox[{"PI", "[", "S", "]"}]}], "+", 
       RowBox[{
        RowBox[{"NU", "/", 
         RowBox[{"(", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}], ")"}]}], " ", 
        RowBox[{"PU", "[", "S", "]"}]}], "-", 
       RowBox[{"\[Delta]", " ", "VarU", " ", 
        RowBox[{"\[Theta]M", "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}]}]}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"A3", "[", "S_", "]"}], ":=", 
      RowBox[{"PU", "[", "S", "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"B3", "[", "S_", "]"}], ":=", 
      RowBox[{
       RowBox[{"PI", "[", "S", "]"}], "-", 
       RowBox[{"\[Delta]", " ", "VarU", " ", 
        RowBox[{"\[Theta]M", "/", 
         RowBox[{"(", 
          RowBox[{"NI", " ", "nu"}], ")"}]}]}]}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"A4", "[", "S_", "]"}], ":=", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", " ", 
          RowBox[{"NI", " ", "nu"}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}], 
        RowBox[{"PI", "[", "S", "]"}]}], "+", 
       RowBox[{
        RowBox[{"NU", "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}], " ", 
        RowBox[{"PU", "[", "S", "]"}]}], "-", 
       RowBox[{"\[Delta]", " ", "VarU", " ", 
        RowBox[{"\[Theta]M", "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}]}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"B4", "[", "S_", "]"}], ":=", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", " ", 
          RowBox[{"NI", " ", "nu"}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}], 
        RowBox[{"PI", "[", "S", "]"}]}], "+", 
       RowBox[{
        RowBox[{"NU", "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}], " ", 
        RowBox[{"PU", "[", "S", "]"}]}], "-", 
       RowBox[{"\[Delta]", " ", "VarU", " ", 
        RowBox[{"\[Theta]M", "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"NI", " ", "nu"}], "+", "NU"}], ")"}]}]}]}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"A5", "[", "S_", "]"}], ":=", 
      RowBox[{"PI", "[", "S", "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"B5", "[", "S_", "]"}], ":=", 
      RowBox[{
       RowBox[{"PU", "[", "S", "]"}], "-", 
       RowBox[{"\[Delta]", " ", "VarU", " ", 
        RowBox[{"\[Theta]M", "/", 
         RowBox[{"(", "NU", ")"}]}]}]}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"EXA", "=", 
      RowBox[{
       RowBox[{"NIntegrate", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"A1", "[", "S", "]"}], " ", 
          RowBox[{"f", "[", "S", "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"S", ",", "c2", ",", 
           RowBox[{"10", "*", "sigmaS"}]}], "}"}]}], "]"}], "+", 
       RowBox[{"NIntegrate", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"A2", "[", "S", "]"}], 
          RowBox[{"f", "[", "S", "]"}]}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"S", ",", " ", 
           RowBox[{
            RowBox[{"-", "10"}], "*", "sigmaS"}], ",", " ", "c1"}], "}"}]}], 
        "]"}], "+", 
       RowBox[{"NIntegrate", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"A3", "[", "S", "]"}], 
          RowBox[{"f", "[", "S", "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"S", ",", "c1", ",", "c3"}], "}"}]}], "]"}], "+", 
       RowBox[{"NIntegrate", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"A4", "[", "S", "]"}], 
          RowBox[{"f", "[", "S", "]"}]}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"S", ",", "c3", ",", " ", "c4"}], "}"}]}], "]"}], "+", 
       RowBox[{"NIntegrate", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"A5", "[", "S", "]"}], 
          RowBox[{"f", "[", "S", "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"S", ",", "c4", ",", "c2"}], "}"}]}], "]"}]}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"EXB", "=", 
      RowBox[{
       RowBox[{"NIntegrate", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"B1", "[", "S", "]"}], 
          RowBox[{"f", "[", "S", "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"S", ",", "c2", ",", 
           RowBox[{"10", "*", "sigmaS"}]}], "}"}]}], "]"}], "+", 
       RowBox[{"NIntegrate", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"B2", "[", "S", "]"}], 
          RowBox[{"f", "[", "S", "]"}]}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"S", ",", " ", 
           RowBox[{
            RowBox[{"-", "10"}], "*", "sigmaS"}], ",", " ", "c1"}], "}"}]}], 
        "]"}], "+", 
       RowBox[{"NIntegrate", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"B3", "[", "S", "]"}], 
          RowBox[{"f", "[", "S", "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"S", ",", "c1", ",", "c3"}], "}"}]}], "]"}], "+", 
       RowBox[{"NIntegrate", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"B4", "[", "S", "]"}], 
          RowBox[{"f", "[", "S", "]"}]}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"S", ",", "c3", ",", " ", "c4"}], "}"}]}], "]"}], "+", 
       RowBox[{"NIntegrate", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"B5", "[", "S", "]"}], 
          RowBox[{"f", "[", "S", "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"S", ",", "c4", ",", "c2"}], "}"}]}], "]"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"EXP", "=", 
      RowBox[{"NIntegrate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"P", "[", "S", "]"}], " ", 
         RowBox[{"f", "[", "S", "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"S", ",", 
          RowBox[{
           RowBox[{"-", "10"}], "*", "sigmaS"}], ",", 
          RowBox[{"10", "*", "sigmaS"}]}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"Return", "[", 
      RowBox[{"{", 
       RowBox[{"EXP", ",", "EXA", ",", "EXB"}], "}"}], "]"}]}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dvec1", "=", 
   RowBox[{"{", "}"}]}], ";", " ", 
  RowBox[{"dvec2", "=", 
   RowBox[{"{", "}"}]}], ";", 
  RowBox[{"dvec3", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Res2", "=", 
      RowBox[{"Res", "[", "\[Sigma]X", "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"dvec1", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"dvec1", ",", 
        RowBox[{"{", 
         RowBox[{"\[Sigma]X", ",", 
          RowBox[{"Res2", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"dvec2", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"dvec2", ",", 
        RowBox[{"{", 
         RowBox[{"\[Sigma]X", ",", 
          RowBox[{"Res2", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
     RowBox[{"dvec3", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"dvec3", ",", 
        RowBox[{"{", 
         RowBox[{"\[Sigma]X", ",", 
          RowBox[{"Res2", "[", 
           RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "]"}]}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"\[Sigma]X", ",", "0.15", ",", "2", ",", "0.1"}], "}"}]}], 
  "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
 RowBox[{"p2", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"dvec1", ",", "dvec2", ",", "dvec3"}], "}"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", " ", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", " ", 
      RowBox[{
      "\"\<\!\(\*SubscriptBox[\(\[Sigma]\), \(X\)]\)\>\"", ",", 
       "\"\<E[A], E[B], and E[P]\>\""}], "}"}]}], ",", " ", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", " ", 
        RowBox[{
         RowBox[{"Darker", "[", "Purple", "]"}], ",", "DotDashed", ",", 
         RowBox[{"Thickness", "[", "0.005", "]"}]}], "}"}], ",", 
       RowBox[{"{", " ", 
        RowBox[{
         RowBox[{"Darker", "[", "Red", "]"}], ",", 
         RowBox[{"Thickness", "[", "0.005", "]"}]}], "}"}], ",", 
       RowBox[{"{", " ", 
        RowBox[{
         RowBox[{"Darker", "[", "Blue", "]"}], ",", "Dashed", ",", 
         RowBox[{"Thickness", "[", "0.005", "]"}]}], "}"}]}], "}"}]}], ",", 
    RowBox[{"LabelStyle", "\[Rule]", 
     RowBox[{"Directive", "[", "Medium", "]"}]}], ",", " ", 
    RowBox[{"AxesOrigin", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0.1", ",", "3.05"}], "}"}]}], ",", " ", 
    RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{
  3.754956543565538*^9, {3.754956695813648*^9, 3.754956710167004*^9}, {
   3.75495674046496*^9, 3.7549567768766813`*^9}, 3.754956835500139*^9, {
   3.754956888785087*^9, 3.754956892713394*^9}, {3.754956946458975*^9, 
   3.754956951137227*^9}, {3.754957115514243*^9, 3.754957146644589*^9}, {
   3.754957340640768*^9, 3.7549573430264997`*^9}, {3.754957520642935*^9, 
   3.7549575230129967`*^9}, {3.7549575661519327`*^9, 3.75495764320615*^9}, {
   3.754958384095969*^9, 3.754958406766685*^9}, {3.754959274946415*^9, 
   3.754959277095359*^9}, 3.754959493847486*^9, {3.7549595527659082`*^9, 
   3.7549595828307257`*^9}, {3.754960154427346*^9, 3.75496016005945*^9}, {
   3.754960226216539*^9, 3.7549602465540743`*^9}, {3.754960295658456*^9, 
   3.754960296344335*^9}, {3.754960361297987*^9, 3.754960362056251*^9}, {
   3.754960515412068*^9, 3.7549605157187757`*^9}, {3.7549609123760366`*^9, 
   3.754960981164556*^9}, {3.754961251634845*^9, 3.754961356812357*^9}, {
   3.754961389953104*^9, 3.754961502179481*^9}, {3.754961838806931*^9, 
   3.754961887410934*^9}, {3.75496245494468*^9, 3.754962478038765*^9}, {
   3.754963773375699*^9, 3.754963802656476*^9}, {3.754963847119796*^9, 
   3.754963851062168*^9}, {3.754963993372242*^9, 3.7549640762034187`*^9}, {
   3.755017254245253*^9, 
   3.755017262115347*^9}},ExpressionUUID->"97438eb3-4ea8-4beb-a0af-\
b6884834fb8a"],

Cell[BoxData[
 RowBox[{
  GraphicsBox[{{}, {{}, {}, 
     {RGBColor[0.33333333333333337`, 0, 0.33333333333333337`], PointSize[
      0.011000000000000001`], Thickness[0.005], 
      Dashing[{0, Small, Small, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBmIQbQwGh+1nPGh42vCUw4EBDC7YT/rK2235kcMhDQyu
2SdIPwvr+cHhcO4MCNyxT7Iy+nL/D4fDrJkg8NBebsps++b/HA5nwfJP7P3X
7Ug3ZuR0YASb98LeymGbbigTp4MJ2L7X9t++reiVZ+Z0SAeb/87+2uzOOxuB
fIj+D/ZnkqWPybFwQu3/ZP/A4uujQiAf4r4v9mvPcK7ZBORD7P9qP+nodqln
QD7EP9/tzdarT+dnhZn3w1407EWrISvMvF/2foz35vmywsz7Y7/9kKVKKivM
vL/2ZqaabJWsMPP+20/5NuFXJ5APAA9Zfjo=
       "]]}, 
     {RGBColor[
       NCache[
        Rational[2, 3], 0.6666666666666666], 0, 0], PointSize[
      0.011000000000000001`], Thickness[0.005], LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBmIQbQwGh+2P63qpNj7lcGAAgwv2f77s5Dj1hcMhDQyu
2Qf9O6vrJMjpcO4MCNyxP6JyV5/fnNNh1kwQeGhfHXLj2uY4ToezYPkn9u02
3fdKWzkdGMHmvbDnWLx15bFVnA4mYPte2+9/m/h29zlOh3Sw+e/s/Z4ZCU34
CNP/wd7vuYhcvTAX1P5P9jVZz1/uM+GCuu+LveD9Dq66UC6o/V/tBVyVnj8u
5XKA+Oe7/ZNDJYyC07ig5v2wvy24PF9+G8y8X/ZbDu1pVL4GM++P/Q6T8jad
bzDz/tozvV4y1VWMG2ref/v6uQqBZWbcDgBew4MN
       "]]}, 
     {RGBColor[0, 0, 
       NCache[
        Rational[2, 3], 0.6666666666666666]], PointSize[
      0.011000000000000001`], Thickness[0.005], Dashing[{Small, Small}], 
      LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBmIQbQwGh+3dPBfea3jK4cAABhfsp0jdn3fxA4dDGhhc
s4+Qelu0+CuHw7kzIHDHXiDr7snHQP6smSDw0N5Bu3va588cDmfB8k/sxQz3
rWL5yOHACDbvhf2X90cuzHvL4WACtu+1/fzFBi1/X3I4pIPNf2cfOXO5jdEz
mP4P9rpPXZm0H8Hs/2Rf4p5us/UuzH1f7B93xQi034DZ/9Veq4jRyPcShwPE
P9/tfWX7124/BTPvh/2cYJ/pTQdh5v2yb4rbGl21DWbeH3srxkuHalbCzPtr
L+z34WX5LJh5/+0vrE/Ty+jkcAAANBWHPg==
       "]]}}, InsetBox[
     StyleBox[Cell["E[A]",
       GeneratedCell->False,
       CellAutoOverwrite->False,
       CellBaseline->Baseline,
       TextAlignment->Left,ExpressionUUID->
       "920f7d30-9802-4004-8176-4f5663079ef8"],
      FontColor->GrayLevel[0.4],
      Background->GrayLevel[1.]], {1.4911172835553277, 3.3550424240630012}, {
     Left, Baseline},
     Alignment->{Left, Top}], InsetBox[
     StyleBox[Cell["E[P]",
       GeneratedCell->False,
       CellAutoOverwrite->False,
       CellBaseline->Baseline,
       TextAlignment->Left,ExpressionUUID->
       "f7c72e1d-8fc1-4cdc-9dce-8c5f104a983d"],
      FontColor->GrayLevel[0.4],
      Background->GrayLevel[1.]], {1.655051709784836, 3.1467683010588723}, {
     Left, Baseline},
     Alignment->{Left, Top}], InsetBox[
     StyleBox[Cell["E[B]",
       GeneratedCell->False,
       CellAutoOverwrite->False,
       CellBaseline->Baseline,
       TextAlignment->Left,ExpressionUUID->
       "3f02d430-6a81-44b9-a939-da8ebc998c32"],
      FontColor->GrayLevel[0.4],
      Background->GrayLevel[1.]], {1.6396828573258198, 3.063458651857221}, {
     Left, Baseline},
     Alignment->{Left, Top}]},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{True, True},
   AxesLabel->{None, None},
   AxesOrigin->{0.1, 3.05},
   DisplayFunction->Identity,
   Frame->{{True, True}, {True, True}},
   FrameLabel->{{
      FormBox["\"E[A], E[B], and E[P]\"", TraditionalForm], None}, {
      FormBox[
      "\"\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(X\\)]\\)\"", 
       TraditionalForm], None}},
   FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.5, 0.4]],
   ImagePadding->{{46., 1.5}, {40., 0.5}},
   ImageSize->{444., Automatic},
   LabelStyle->Directive[Medium],
   Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
         (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
          Part[#, 1]], 
         (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
         (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
          Part[#, 1]], 
         (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
          Part[#, 2]]}& )}},
   PlotRange->{{-0.040625, 1.9906249999999999`}, {3.042438863245485, 
    3.4204957009712147`}},
   PlotRangeClipping->True,
   PlotRangePadding->Automatic,
   Ticks->{Automatic, Automatic}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.755017272292533*^9, 
  3.7550173076517*^9}},ExpressionUUID->"1f420d55-dee6-4a38-b5e1-185ef124896a"]
},
WindowSize->{1062, 659},
WindowMargins->{{70, Automatic}, {Automatic, 0}},
FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 2, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"4698bedd-d1e7-468f-ae05-fd07bd668ba5"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 22062, 591, 1209, "Input",ExpressionUUID->"bdabf441-d342-4083-8f38-93fd5c82c022"],
Cell[22623, 613, 4347, 100, 343, "Input",ExpressionUUID->"32c060c8-2df4-4423-9f13-ec34f1288593"],
Cell[26973, 715, 196, 3, 52, "Input",ExpressionUUID->"4dff5d5d-aebf-4ef6-b9fe-9ea6058885be"],
Cell[27172, 720, 246, 4, 52, "Input",ExpressionUUID->"87257d38-da33-4375-8d89-6666af2d99fc"],
Cell[27421, 726, 194, 3, 52, "Input",ExpressionUUID->"cdd9d07e-5be8-4340-830d-02a478783340"],
Cell[27618, 731, 20742, 572, 1293, "Input",ExpressionUUID->"97438eb3-4ea8-4beb-a0af-b6884834fb8a"],
Cell[48363, 1305, 4351, 99, 337, "Input",ExpressionUUID->"1f420d55-dee6-4a38-b5e1-185ef124896a"]
}
]
*)

